home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-09_1985_Verlag_Heinz_Weise_de.d64 / cave climber (.txt) next >
Commodore BASIC  |  2023-02-26  |  15KB  |  77 lines
  1. 1 ifpeek(50307)=120thenpoke50257,16
  2. 1000 poke53248+33,0:poke53248+32,0
  3. 1010 print"[147]"chr$(142)chr$(8)
  4. 1020 printtab(13)"[158][213][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  5. 1030 printtab(13)"[221][156]cave climber[158][221]"
  6. 1040 printtab(13)"[202][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  7. 1050 printtab(7)"[159]    by thorsten lange     "
  8. 1060 printtab(14)"[129]aus input 64"
  9. 1065 printtab(13)"-1-[146] [154]anleitung"
  10. 1067 printtab(13)"-2-[146] [154]spielstart"
  11. 1070 printtab(14)"ihre wahl ? ";
  12. 1080 poke204,0:poke198,0
  13. 1100 get a$:ifa$<>"1"anda$<>"2"then1100
  14. 1110 if peek(207)then1110
  15. 1120 poke204,1:printa$
  16. 1130 if a$="2"then 5000
  17. 2000 print"[147]"
  18. 2010 print"[211]pielziel :"
  19. 2020 print"[154][211]ie muessen alle goldenen [194]aelle einsam-";
  20. 2030 print"meln und dann den [193]usgang am oberen"
  21. 2040 print"[194]ildschirmrand erreichen bevor [211]ie keine";
  22. 2050 print"[203]raft mehr haben."
  23. 2060 print"[196]abei muessen [211]ie [214]oegeln, [197]iern, [209]uarks";
  24. 2070 print"und den [200]oehlenbewohnern ausweichen. "
  25. 2100 gosub10000
  26. 3000 print"[147][211]pielsteuerung :"
  27. 3010 print"[154][199]esteuert wird [201]hre [198]igur mit einem"
  28. 3020 print"[202]oystick in [208]ort 2 oder mit der [212]astatur"
  29. 3030 print"[212]astaturbelegung :":print
  30. 3040 print"';'     = rechts"
  31. 3050 print"':'     = links"
  32. 3060 print"'[200]'     = oben"
  33. 3070 print"'[206]'     = unten
  34. 3080 [153]"'(NULL)(NULL)atnlenval' = asceuerknopf"
  35. 3499 [141]10000
  36. 3500 [153]"loadascunktionen :"
  37. 3510 [153]"contstr$urch druecken der asceuertaste wird das"
  38. 3520 [153]"(NULL)aennchen von einem valnergieschild vor"
  39. 3530 [153]"den atnngreifern geschuetzt, wobei aber"
  40. 3540 [153]"sehr viel (NULL)raft verbraucht wird."
  41. 3550 [153]"(NULL)enn (NULL)ie den mid$oystick nach oben druecken";
  42. 3560 [153]"wird ein (NULL)eil gespannt, falls dieses auf";
  43. 3570 [153]"festen peekoden trifft. chr$ehen (NULL)ie nun"
  44. 3580 [153]"direkt unter das (NULL)eil und druecken"
  45. 3590 [153]"nochmals nach oben, so koennen (NULL)ie nun"
  46. 3600 [153]"am (NULL)eil entlang hangeln."
  47. 3610 [153]"str$urch druecken nach unten laesst das"
  48. 3620 [153]"(NULL)aennchen das (NULL)eill wieder los."
  49. 3700 [153]:[153]"str$urch druecken von asc7wait koennen (NULL)ie das"
  50. 3710 [153]"(NULL)piel unterbrechen; durch betaetigen des";
  51. 3720 [153]"valnergieschildes wieder starten."
  52. 3999 [141]10000
  53. 4000 [153]"loadatnnmerkungen :"
  54. 4010 [153]"cont-das (NULL)eil wird immer in (NULL)aufrichtung"
  55. 4020 [153]" gespannt"
  56. 4030 [153]"-(NULL)ie haben nur ein (NULL)eil => das alte wird";
  57. 4040 [153]" deshalb wieder eingezogen"
  58. 4050 [153]"-die (NULL)ianen koennen nur von oben"
  59. 4060 [153]" erreicht werden"
  60. 4070 [153]"-es gibt vier verschiedene (NULL)creens,wobei";
  61. 4080 [153]" das (NULL)piel bis (NULL)evel 25 immer schwerer"
  62. 4090 [153]" wird. ( bisheriger (NULL)ekord: (NULL)evel 11 )"
  63. 4100 [153]"-nach jeder zweiten ueberstandenen (NULL)unde";
  64. 4110 [153]" erhalten sie ein valxtraleben"
  65. 4120 [153]"-wenn (NULL)ie einen goldenen peekall aufsammeln";
  66. 4130 [153]" bekommen (NULL)ie etwas valnergie"
  67. 4200 [141]10000
  68. 4300 [137] 1000
  69. 5000 [153]"load"[199](142)[199](8):[143] starten
  70. 9999 [158] 4592
  71. 10000 [153]"sys(NULL)eiter mit (NULL)cmd";
  72. 10010 [151]204,0:[151]198,0
  73. 10020 [161]a$:[139]a$[179][177]"w"[167]10020
  74. 10040 [139][194](207)[167]10040
  75. 10050 [151]204,1:[142]
  76. 10060 [142]
  77.